object fUrl: TfUrl Left = 312 Top = 345 BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = 'Add link ...' ClientHeight = 204 ClientWidth = 356 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poScreenCenter PixelsPerInch = 96 TextHeight = 13 object Button1: TButton Left = 3 Top = 178 Width = 75 Height = 22 Caption = 'Ok' Default = True Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Verdana' Font.Style = [fsBold] ParentFont = False TabOrder = 0 OnClick = Button1Click end object PageControl1: TPageControl Left = 2 Top = 2 Width = 353 Height = 169 ActivePage = TabSheet1 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Verdana' Font.Style = [fsBold] ParentFont = False TabOrder = 1 object TabSheet1: TTabSheet Caption = 'Url' object Label1: TLabel Left = 5 Top = 30 Width = 21 Height = 12 Caption = 'URL' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Verdana' Font.Style = [] ParentFont = False end object Label2: TLabel Left = 5 Top = 54 Width = 29 Height = 12 Caption = 'Name' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Verdana' Font.Style = [] ParentFont = False end object Edit2: TEdit Left = 68 Top = 27 Width = 215 Height = 21 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 end object Edit3: TEdit Left = 68 Top = 51 Width = 215 Height = 21 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 end object newwd: TCheckBox Left = 68 Top = 80 Width = 189 Height = 17 Caption = 'Open link in a new window' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 end end object TabSheet2: TTabSheet Caption = 'Mail To' ImageIndex = 1 object Label3: TLabel Left = 5 Top = 30 Width = 61 Height = 12 Caption = 'Email Adres' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Verdana' Font.Style = [] ParentFont = False end object Label4: TLabel Left = 6 Top = 54 Width = 29 Height = 12 Caption = 'Name' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Verdana' Font.Style = [] ParentFont = False end object Edit1: TEdit Left = 68 Top = 27 Width = 215 Height = 21 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 end object Edit4: TEdit Left = 68 Top = 51 Width = 215 Height = 21 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 end end end object Button2: TButton Left = 278 Top = 178 Width = 75 Height = 22 Caption = 'Cancel' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Verdana' Font.Style = [fsBold] ModalResult = 2 ParentFont = False TabOrder = 2 OnClick = Button2Click end end